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MODULE BINDVL ( 
TDENT DENT GUAGE fBbT $834) 


BEGIN 


' 

RTIS ITI ti iii iii ii itiiiii tii iiiii iii iii 
ie 

's COPYRIGHT (c) 1978, 1980, 1982, 1984 

'® DIGITAL te CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESER 


we 
® 
® 
7 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY OTHER = 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTH RWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
b 
® 
® 
* 
ve 
* 


Plt ESS ARSENE OT SE She MBHITY OF 1 
Lee ERE EAA AAA 
ie 

FACILITY: Mount Utility Structure Level 2 

i ABSTRACT: 


This module updates the volume set List and home blocks to bind a 
new volume into a volume set. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


SOONAMNE WIN OOD NAOU LEWIN $$ O OONOULS WN" OOONOULS WN 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 27-Oct-1978 17:54 
i MODIFIED BY: 


v03-003 HH0041 Hai Huang 24- yh, 1986 
Remove REQUIRE ‘SRCO$:CVASLIB.OBJJMOUNTMSG.B352'. 


v03-002 HHO050 Hai yuene 03-Jul-1984 
Remove obsolete LOCK/UNLOCK_INDEXF routines. 


OOoSSCSOOSOOOOSOSSOSSOSOOSOSSOoooooosooooooooooooooooooooo 
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1b-50 S$ep-1984 VAX-11 seat V4.0-742 
122808-}382 933) DI SKSVMEHASTERSEMOUNT. SRCIBINDVL.B320%% ( 
v03-001 St y05t¢ Steven T. gorteeyts 01-Jul-1982 

Make the code a 5 peentrant will no longer be 


necessary once ajoy | s fixed up, but this must be 
in place for the update. 


i} 
! 
! 
' 
' 
i v02=004 $110196 Steven T. Jeffreys, 02-Fe eb-1982 
, ro OWN and GLOBAL storage to seaceny restartablity. 
} ph make use of a global buffer 

; 
' 


v02-003. aceoter Andrew C. Goldstein, 18-Apr-1980 13:37 
Previous revision history moved to MOUNT.REV 


LIBRARY ‘SYSS$LIBRARY:L B,L52"; 
REQUIRE 'SRC$:MOUDEF .B32'; 


FORWARD ROUTINE 

BIND_ VOLUME : NOVALUE, ! main bind routine 
UPDATE_HOMEBLK : NOVALUE, ' update hone blocks on volume 
OPEN_FILE : NO 


. te] 

' a a 

! coed a tinal block 

! write a virtual block 

! condition handler for this module 


° 
=] 
‘to 
stone 
_ 
- 
o 
< 
>> 
=— 
Cc 
m 
»s 


wie VIRTUAL : NOVALUE, 


me at ot = = = = = SS 9 I = = wd Sd 3 
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BINDVL 16-5¢ -1984 01:10:14 VAX-11 Bliss-32 V4.0-742 Page 3 
FOeeOb0 1 Het 7 94:10:18 DISKSVMSMASTER: CMOUNT . SRCIBINDVL.B32: 1° (2) 
Pe BAF 
; i ei? | Global and own storage for this module. 
ig. Bolt 
: 91 621 1 EXTERNAL 
: 38 6 § 1 CHANNEL, ' channel assigned to device being mounted 
; 9 06 1 BUFFER : BBLOCK, ! generat purpose I/0 buffer 
; 0624 1 HOME _BLOCK : BBLOCK; ! buffer containing home block of volume 
RE Tom 
: 39 6 § 1 OWN_START : VECTOR (0), ' Mark start of OWN storage 
; 6 8 1 CHANNEL : WORD, ' channel for index file on RVN 1 
; 99 6 i CHANNEL : WORD, ' channel for volume set List on RVN 1 
; 100 0650 1° LOCK_COUNT ! saved lock count of volume's index file 
> 103 0631 1 LOCK~COUNTI, i as above, for RVN 1 
3 106 tt: : OWN_END : VECTOR CO]; ! Markk end of OWN storage 
> 104 0634 1 LITERAL 
; 105 0635 1 OWN_LENGTH = OWN_END = OWN_START; 


=32 V4. 0-742 4 
= CMOUNT.SRCIBINDVL.B32:3°° (3) 


nw 
one 
sou 


F 16 
1eSep-19be 82:45:16 


: 198 i } GLOBAL ROUTINE BIND_VOLUME : NOVALUE = 

1 !44 

: 1% e351 | 

3 i) o } FUNCTIONAL DESCRIPTION: 

3 118 a 1! This cour ine incorporate ey8 new volume into a volume set. It enters 
: 6116 45 1! it into the volume set List and updates the home blocks on the new 
s 115 644 1! volume and the root volume. 

; 138 0645 1! 

: 11 58 1! 

; 118 o 1 ! CALLING SEQUENCE: 

; 11 & 1! BIND_VOLUME () 

: 120 649 1! 

; tel 0650 1 ! INPUT PARAMETERS: 

= ¢ et 1! NONE 

a | $36 1! 

> 124 655 1 ! IMPLICIT INPUTS: 

ar 54 1! NONE 

: 126 0655 1! 

. Sar Be28 1 ! OUTPUT PARAMETERS: 

: 128 0657 1! NONE 

; 129 0658 1! 

; 130 0659 1 ! IMPLICIT OUTPUTS: 

s 1351 0660 1! NONE 

3 136 0661 1! 

ae 0662 1 ! ROUTINE VALUE: 

: 134 0663 1! NONE 

s 135 0664 1! 

3 18 0665 1 ! SIDE EFFECTS: 

3 137 0666 1! NONE 

; «6138 0667 1! 

3: 139 0668 1 !-- 

3 140 669 1 

3: (141 670 § BEGIN 

3 1% 0671 

3; «616 67 § LITERAL 

: 144 67 ENTRY_COUNT = 512 / VSLSC LENGTH; ! Number of entries per block 
: 145 0674 ! in volume set List file 

3 6146 0675 

: 147 067 LOCAL 

3: «6148 067 ese PRIV : BBLOCK fe) ! privileges of process 

: 149 0678 PRIV : BBLOCK (8), orivi lege bits to clear 

; 150 0679 NEU. § P i flag indicating creation of new volume set 
3: 151 0680 STATUS i catch-all status value 

; 138 681 10 STATUS : VECTOR C4, WORD] 1/0 status block 

s 95 68 EOF, (ast OME used in volume set List 
3; 154 068 REC_ATTR : BBLOCK aeseee ARECATIR ot receré | ettr toutes of vol set list 
s 155 0684 p : REF BBLOC ! block sca "ret 

: 156 685 FIB : BBLOCK plésct EXTDATA], iM Ste oxtend tila 

: 4 F IB_DESC : VECTOR escriptor for FIB 

3; 159 rts EXTERNAL J 

3 169 +4 PHYS _NAME : VECTOR; ! descriptor of physical device name 
: 16¢ 691 

: 16 692 ENABLE BIND_HANDLER; 


16 
BIND 1g-$ -1984 01:10:14 VAX-11 Bliss-32 V4.0-742 Pa 5 
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; 6164 693 

3 16 0694 ' Zero the OWN and GLOBAL storage so that $MOUNT 

3 198 695 ! my be called repeatedly from a given image. 

; 16 924) ! 

; 168 069 

3 198 p08 CHSFILL (0, OWN_LENGTH, OWN_START); 

. 333 5 0 ! See if the process has BYPASS and/or SYSPRV privileges. Clear the image 

$ \7¢ f 1 privileges if not, to let file protection work in the /BIND processing. 

3 (174 $708 

. tre Bree CLEAR_PRIV<0,32> = 0; 

: 176 705 2 (CLEAR PRIVeL)<O,32> = 0; 

: 177 P b7 06 SSETPRY (ENBFLG = 0, ! read process privileges 

: 178 P 070 PRMFLG = 1, 

; 179 P 0708 PRVADR = CLEAR_PRIV 

: 180 P 0709 PRVPRV = PROCESS PRIV 

s 181 0710 : 

3 1% 0711 

s 12 orig IF NOT .PROCESS_PRIVCPRV$V_SYSPRV] 

: «6184 071 THEN CLEAR_PRIVEPRVSV_SYSPRV] = 1: 

> 185 714 2 IF .PROCESS_PRIVCPRVSV_BYPASS} 

3; 186 715 THEN CLEAR_PRIVEPRV$V_BYPASS] = 1; 

s t8r r 3716 SSETPRV (ERBFLG = 0, ! disable image privileges 

; «188 P 0717 PRMFLG = 0, 

; «189 P 0718 PRVADR = CLEAR_PRIV 

; 190 0719 3 

3: «6191 0720 

3 136 0721 ! Get a flag snares ae whether we are adding a volume to a set or creating 
; 19 O76 ! RVN 1 of a new set. This affects various actions along the way. 

3 6194 072 ! 

3 «6195 0724 

: 138 of ; NEW_SET = .HOME_BLOCKCHM2$W_RVN) EQL 1; 

; 198 0727 ! We already have one channel open on the new volume, which will be used to 
; 199 0728 ' access its index file. Open two more channels, for the index file and volume 
3 $e 1644 ' set List on the root volume. File protection is used to control the user's 
3; 201 0730 ! privilege to bind a volume; we open all three files concurrently to avoid 
: 4 449 ' error cleanup problems Later. 

: 20 07 § ! 

: 204 ors 

3 soe P 0734 STATUS = SASSIGN (CHAN = CHANNEL2 

3 206 0735 NAM = PHYS NAMELO)); 

3 . 6736 IF NOT .STATUS THEN ERR_EXIT (.STATUS); 

: 09 P b7 a8 STATUS = SASSIGN (CHAN = CHANNEL3 » 

> 210 0739 NAM = PHYS NAMECO)); 

3 12 pmo IF NOT .STATUS THEN ERR_EXIT <.STATUS); 

: 21 74 ' 

: 216 74 ' Since Version 2, we styers mount the volume with the volume ‘'unlocked’’. 

: ave 744 i Thus the following call to UNLOCK_INDEX is obsolete. The code is commented 
3 16 oe? } out for historical reasons. 

: 18 74 ! Patch off the write locks on the index files, so that we can write access 
en eh 
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! STATUS = KERNEL CALL (UNLOCK INDE 
: IF NOT .STATUS THEN ERR_EXIT™(.ST 


ron 
INWIWIWInorororororororory 


WO DONOUS WN 


OPEN_FILE (UPLIT WORD (FIDSC_VOLSET, FIDSC_VOLSET, 1), .CHANNEL3, REC_ATTR); 
pn scan the volume set List file and check for uniquness of volume 

' labels. 

' 


IF CHSEQL (HM2$S_STRUCNAME, HOME _BLOCKCHM2$T_STRUCNAME], 
$S"STRUCNAME, HOME_BLOCKCHM2$T_VOLNAME), ' °) 
THEN ERR_EXIT (MOUNS_DUPVOLNAM) ; 


INCR J FROM 1 TO (.HOME_BLOCKCHM2SW_RVNJ-1+ENTRY_COUNT=1) / ENTRY COUNT 
BEGIN 
READ_VIRTUAL (.CHANNEL3, .J); 
P = BUFFER; 
INCR K FROM 1 TO ENTRY_COUNT 


BEGIN 
IF CHSEQL (HM2$S_VOLNAME, HOME_BLOCKCHM2$T_VOLNAME], 
EVSL$T"NAMEJ, " °) 


VSL E 
THEN ERR_EXIT (MOUNS_DUPVOLNAMD; 
TEx VSL$C_LENGTA; 


' Enter the new volume ir the volume set List and rewrite the block. We 
: extend the file if necessary. 


PUPPIES BE EEE EE SSeS Sey 


POAOOAASO 


PIPIPIPIPINIPINININIPYNINININININPINININININININYPONo PN PoNnofnonyd: 


EOF = (.HOME_BLOCKCHM2$W_RVN] + ENTRY_COUNT - 1) / ENTRY_COUNT; 
IF EOF GEQU ~REC_ATTRCFATSL _EFBLK] ‘ 


> > > > i] 


XTDATA, FIB); 


' 

! 

' Now open the files. 

OPEN_FILE (UPLIT WORD (FIDSC_INDEXF, FIDSC_INDEXF, 0), .CHANNEL, 0); 
IF NOT .NEW_SET 

THEN OPEN_FILE (UPLIT WORD (FIDSC_INDEXF, FIDSC_INDEXF, 1), .CHANNEL2, 0); 
3 

4 

4 

4 

4 

4 

4 

4 T 

6 13 

4 = 

6 

4 
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: 278 P 0807 4 STATUS = DO_10 (CHAN = .CHANNEL3, 

H 79 P 8 4 UNC = IOS_MODIFY, 

; si Pp 4 10SB = JO_STATUS, 

; 4 P sit ? + = FIB_DESC 

3 88 0 i 4 IF NOT .STATUS THEN ERR_EXIT (.STATUS); 

: 84 1 & IF NOT 1? STATUSCO] THEN ERR_EXIT (.10 dat sat 

; i OBtE 4 ere FATSL_HIBLK] = -FIBCFIBSL_EXSZ] + .FIB F1BSL_EXVBNI - 1; 
3 Hf OBg END; 

: 89 P = (.HOME BLOCKCHM2$W_RVN] MOD ENTRY_COUNT) * VSLSC_LENGTH + BUFFER; 
3 3 0819 CHSMOVE CHARGES VOLNARE HOME BLOCKCHM2S7-VOLNAMES¢ PLVSLST_NAME)); 

; 29 0821 2 THEN CHSMOVE (HM2$S STRUCNAME HOME _BLOCKCHM2$T_STRUCNAME], BUFFERCVSLST_NAMEJ); 
; $94 08 : WRITE_VIRTUAL (.CHANNEL3, .EOF); 

: $32 o8 3 CLOSE_FILE (.CHANNEL3, REC_ATTR); 

3; aw 0858 ' Now update the home blocks on the volumes. On the new volume, we insert the 
; 298 0827 ' volume set name and RVN. On RVN 1, we update the count of volumes in the set. 
3; 299 0828 ! On a new set, both happen on the same volume. 

; 300 4 ! 

; 301 0830 

; 0831 IF .NEW_SET 

3 3 te T 

; 304 083 UPDATE_HOMEBLK (.CHANNEL, 3) 

; 305 0834 ELS 

; 306 0835 

: 07 0836 ; UPDATE _HOMEBLK (.CHANNEL, 1); 

; 308 0837 UPDATE-HOMEBLK (.CHANNEL2, 2); 

3; 309 0838 § END; 

; 310 0839 

; 11 0840 CLOSE_FILE (.CHANNEL, 0); 

; 312 0841 2 IF NOT .NEW_SET THEN CLOSE_FILE (.CHANNEL2, 0); 

3 Sie pare 

: se 084 ! 

: 15 0844 ! KERNEL_CALL (LOCK_INDEXF); 

; 316 0845 ! 

3; 317 7 

: 18 084 SDASSGN (CHAN = .CHANNEL2); 

; 1 7k SDASSGN (CHAN = .CHANNELS); 

3 33 sey : Re-enable image privileges for the next volume mounted. 

: 32 85 

; 324 P nek SSETPRV (ENBFLG = 1, ! disable image privileges 

s 325 P beee PRMFLG = 0, 

; § P S22 PRVADR = CLEAR_PRIV 

3 8 0857 . 

3 9 858 END; ! end of routine BIND_VOLUME 
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Vo4-000 14- = 36p-1984 Mit8H1g  DTSkSVMSMASTERS CHOUNT. SRCIBINDVL.032;9° * (3) 
-PSECT SPLITS,NOWRT ,NOEXE,2 | 


0000 0 4 001 $000 P.AAA: .WORD 1, 1, 0 ; 
48 8 1 0001 006 P.AAB: .WORD 1, 1, 1 3 
0001 06 0006 O000C P.AAC: .WORD 6, 6, 1 : 


.PSECT SOWNS,NOEXE,2 
00000 OWN_START: 
00000 CHANNEL2: 
00002 CHANNEL3: ‘as 
00004 LOCK =COUNT: 
00008 LOCK ~COUNTT: 
0000C OWN_END: .BLKB 
.EXTRN CHANNEL, BUFFER 
HOME BLOCK, PHYS_NAME 
~EXTRN SYSSSETPRV, SYSSASSIGN 
.EXTRN COMMON_IO, SYSSDASSGN 
-PSECT $CODE$,NOWRT,2 


LKB 
LKB 


of | NB KY CO 


OFFC 00000 .ENTRY BIND_VOLUME, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 
5B 000000006 00 9€ 00002 MOVAB LIBSSTOP, R11 : 
5A 0000" CF 9E 00009 MOVAB CHANNELS. R10 : 
5E AO AE 9E 0000 MOVAB ( ; 
6D 021A CF DE 0001 MOVAL 198, (FP) + 0670. 

0c 00 6E , 00 2¢ 90017 movcS #0, (SP), #0, #12, OWN_START : 0698 | 
50 AE 7C OOO1E CLRQ CLEAR_PRIV ; 0704 
58 AE 9F 00021 PUSHAB PROCESS PRIV : 0710 
01 DD 00034 PUSHL ; 
58 AE SF 00026 PUSHAB CLEAR_PRIV : 
7E D4 90 9 CLRL -(SP)~ ; 
000000006 00 04 FB 000 CALLS 44, SYSSSETPRV : 
4 5B OA 04 3 00 BBS PROCESS PRIV+3, : o712 | 
04 OE 5 Soae 18 gis62 mb, PROFESS RIV 2$ t Oota | 
AY AE 2 bs tire B1SB2 #35," CLEAR_PRIV+3 : 0715 | 
E 7C 00044 2$ CLRQ § : 0719, 
58 AE OOF 0046 PUSHAB CLEAR_PRIV 3 | 
7E 04 0004 CLRL ; | 
000000006 00 g4 FB 00 CALLS #4, SYSSSETPRV ; 
0 D4 3 CLAL > 0725 | 
01 00006 CF 81 CMPW  HOME_BLOCK+38, #1 : 
9 BNEQ 3$ : 
59 B 09 B 3s AOvt RO. MEU. SET : | 
ee ee £0 CLRO20Os = (§p)* > 0735 | 
FE AA 3F 9 6¢ PUSHAB CHANNEL2 : 
00006 CF 9F 0006 PUSHAB PHYS_NAME ; 


K 16 
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teat 13-88-1382 04:18:18 DISKSVMSMAS TER: CMOUNT . SRCIBINDVL.B32:1> 
000000006 9 4 F 06 CALLS #4, SYSSASSIGN ; 

: D MOVL RO, STATUS : 

5 E 7 LBS STATUS, 4$ : 

7 DD 0007 PUSHL STATUS ; 

6B Qi FB 7 CALLS #1, LIBSSTOP : 

— 7C 00078 4$: CLRO = (3P) : 

SA bp 7D PUSHL 1 : 

00006 CF 9F 0007F PUSHAB PHYS_NAME : 

000000006 99 4 F H CALLS #4, SYSSASSIGN : 

: DO 0008A MOVL RO STATUS : 

05 E8 0008D BLBS = STATUS, : 

7 OD 00 PUSHL STATUS : 

6B 1 FB 0009 CALLS #1, LIB$STOP : 

E D4 00095 5$: CLRL 0s = (§P) : 

00006 CF DD 00097 PUSHL CHANNEL : 

0000' CF 9F 0009B PUSHAB P.AAA : 

0000v CF 03 re 009F CALLS #3, OPEN_FILE : 

OF 59 EB OO0A4 BLBS § NEW_SET, ~6$ : 

7E bs 0047 CLRL =<(SP) : 

7E FE AA 3C 000A9 MOVZWL CHANNEL2, =(SP) : 

0000" CF 9F O00AD PUSHAB P : 

0000v CF 03 FB 000B1 CALLS #3, OPEN_FILE F 

28 AE 9F 000B6 6S: PUSHAB REC_ATTR : 

7E 6A 3C 00089 MOVZWL CHARNEL3, (SP) : 

0000" CF 9F O00BC PUSHAB P : 

0000v CF 03 FB 000CO CALLS #3, OPEN_FILE F 

00006 CF 00006 CF 0C 29 000C5 CMPC3 #12, HOME _BLOCK+460, HOME_BLOCK+472 : 
09 12 b00¢D BNEQ : 

007281AC 8F DD OOOCF PUSHL #7504300 : 

6B 01 FB 00005 CALLS #1. LIBS$STOP : 

56 00006 CF 3C 000D8 7$: MOVZWL HOME BLOCK+38, R6 ; 

56 06 CO 000DD ADDL g #6, R6 : 

56 08 C6 O00E0 DIVL2 #8. R6 ; 

54 D4 000E CLRL : 

28 1 0005 BRB 11$ ; 

4 pp O0E7 8$: PUSHL J : 

7E 6A 3C 000E9 MOVZWL CHANNEL3, -(SP) : 

0000v CF 02 FB OOOEC CALLS #2, READ VIRTUAL : 

58 00006 CF 4 OOF1 MOVAB BUFFER, P : 

55 01 00 000F6 MOVL i : 

68 00006 CF C #9 000F9 9$: CMPC3 #12, HOME_BLOCK+472, (P) : 
9 12 OOOFF BNEQ : 

007281AC  8F DD 0191 PUSHL #7504300 : 

68 01 FB 019 CALLS #1 | 1BSSTOP : 

40 AS 9E OO10A 10$:  MOVAB 64(RB), P : 

E7 55 08 F3 0010 AOBLEQ #8, K, 9 : 
D1 54 6 F3 00112 11$: AOBLEQ R6, J : 
50 00006 CF 3¢ 0011 MOVZWL H LOCK+38, RO : 

50 7 (CO 0011B ADDL A : 

56 50 8 C7 0011 DIVLS #8. RO, EOF : 
30 AE 6 D1 001 CMPL Of, REC_ATTR+8 : 

68 1F 001 BL SSU : 

0200 «8F 00 6E ict 00 2c : movcS #0, (SP), #0, #512, BUFFER : 
0 AE of Ab oF 1 g MOVAB 1(R6), REC_ATTR+8 : 

.- oe 3 D1 001 CMP FOF. REC_ATTR+4 : 

6 18 00138 BLEGU 14$ : 


04000 


20 


7E 
50 


00006 


00 


50 
00 
50 
50 


68 
CF 


25 


04 


000000006 


$38 ove ~w 
om "Wm "cm" COOmMmMoOoMmMmOm=~v vino m 


SON ON OOOMMOdUU'? PS 


9 
alt 
0 

08 AE 
f 

7E 

14 AE 
a i 
i 

6A 

of 

3 

57 

01 

48 AE 
48 AE 
01 

24 = AE 
FF AO 
00006 4 
06 
QO00GCF40 
oc 

59 

oc 

56 

6A 

02 

28 AE 
6A 

03 

0000G CF 
11 

01 

00006 o2 
FE AA 
Oe 

E 

00006 i 
: 

FE AA 
02 

FE AA 


I 
-3eo- 
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™~ 
o 
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PPPS ES & 


12$: 


13$: 
14$: 


15$: 


16$: 


SoOooooooooooooosooooooooooooooooooooooooooooooooooooooooooO 
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Hane eee ee ee er er er er ee er ee er ee er er er ert 
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WMNWOIM NSS WWAS NSS SIM NWO MINIM DO NINWOEM WM NOMS NOW OVNOOVNYOCOP 
ODOL ODS FOODS $99 ODO WWE DOOM OD SOM -DOOWlWOOWING WOomNLEOOMOOCS 


Be 2:45:16 


MOVCS 


#0, (SP), #0, #32, FIB 


#640 F1g%23 

#1, F1B+26 

#30, FIB_DESC 
FIs FIB-DESC+4 
=( 


P 
Pp 
ig 
(SP 


1 STATUS 
CHNEL.S. -(SP) 
#12, COMMON_10 


$s 
$s 
Ss 
8 
s 


pufFeRtROJ, P 

#12, HOME BLOCK+472, (P) 
NEW. SET, 

ois HOME_BLOCK+460, BUFFER 


CHANNEL3, =(SP) 
a2, WRITE_VIRTUAL 


CHANNEL 

ase UPDATE _HOMEBLK 
CHANNEL2, =(SP) 

#2, UPDATE _HOMEBLK 
-(§P) 

CHANNEL 

#2, CLOSE FILE 
NEW_SET, T8$ 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMOUNT.SRCIBINDVL .832 
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vee ti 1 ~300n 138% 04:18:18 DISKSVMSMASTER:CMOUNT.SRCIBINDVL.B32:1° (3). 
000000006 1 fe 19 CALLS #1, SYSSDASSGN : | 
000000006 * 28 OO51A CALcSe CHANNEL baSSeN. heed 
— 7C¢ 1 CLRO = = ( §P) + 0856 
58 AF OF 3 PUSHAB CLEAR_PRIV : 
: DD 6 PUSHL # : 
000000006 00 4 FB CALLS #4, SYSSSETPRV : 
04 F RET > 0858 
0000 8 0 19$ «WORD Save nothing 3: 0670 
7E D4 2 CLRL Os =CS ; 
SE pp 0234 PUSHL SP : 
7E 04 AC D 0 Ova 4(AP), =(S : 
0000v CF 0 FB 0 A CALLS #3, Bi@%_HANDLER : 


a a a a a a a a a a a ee a A a aaa tac amc - eer a 3) 
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“voe=060 1a-8ep-19 4 ee eer: DISKSVMSMASTER: CMOUNT . SRCIBINDVL.B32: 1° (13 
3 1 9832 } ROUTINE UPDATE_HOMEBLK (CHANNEL, MODE) : NOVALUE = | 

3 : 0861 1 !++ | 
& 4 9a + ! | 
\3 ? Baez : FUNCTIONAL DESCRIPTION: 
13 ' 
i; - 337 0865 1! This routine updates the home blocks in the index file open on the | 
i; 338 0866 1! indicated channel. It enters volume set name, RVN, and number of 

; 339 0867 1! volumes as directed. 

3 re 0868 1! 

: 341 0869 1! 

: x8 0870 1 ! CALLING SEQUENCE: 

; 4 0871 1! UPDATE_HOMEBLK (ARG1, ARG2) 

> «344 B3e8 1! 

> 345 087 1 ! INPUT PARAMETERS: 

: 346 0874 1! ARG1: channel on which index file is open 

; 347 0875 1! ARG2: mode on 

: 348 0876 1! bit 0 set to update RVN and structure name 

; 349 0877 1! bit 1 set to update count of volumes in set 

;: 30 0878 1! 

39) 0879 1 ! IMPLICIT INPUTS: 

3 326 oaey : HOME _BLOCK: home block of volume being mounted, containing needed data 

: 354 088 1 ! OUTPUT PARAMETERS: 

: oe 0883 1! NONE 

; 356 0884 1! 

:— Sor 0885 1 ! IMPLICIT OUTPUTS: 

: oe 0886 1! NONE 

- Sop 0887 1! 

; 360 0888 1 ! ROUTINE VALUE: 

; 361 0889 1! NONE 

3 306 0890 1! 

‘| 0891 1 ! SIDE EFFECTS: 

; 364 0892 1! index file of specified disk written 

: 369 0893 1! 

; 366 0894 1 !-- 

; S6r 0895 1 

; 368 0896 2 BEGIN 

: 369 0897 

; 370 0898 MAP 

3 sf) 0899 MODE : BITVECTOR; ! mode flags arg 

: 37 0900 

3 7 0901 LOCAL 

; of6 090 ERR_COUNT, ! inverse count of errors encountered 

: 375 090 COURT, ' highest VBN to process 

: 376 0904 N ' current VBN in index file 

; 377 0905 STATUS i catch-all status value 

: 378 0906 STATUS, ' 2nd status value 

: 379 0907 § 10_STATUS : VECTOR C4, WORD]; ! 1/0 status block 

: 380 0908 

: 381 0909 

; 38 0910 CHECK_HOMEBLK2, , verity level 2 home block 

3 a7 0312 CHECKSUM2; ! compute home block checksum 

: 385 91 

; 386 $914 ! We read and update all of the home blocks of the volume. Each home biock, as 

3; 387 0915 ! it is read, is checked for validity. If there is an error, we write back that 
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1b-sep-19 4 01:10:14 VAX=-11 Bliss-32 V4.0-742 Page 
12286871382 THAT DISKSVMSMASTER:CMOUNT. SRCJBINDVL.B32; 1° 
: home block with a bad checksum to prevent misinterpretation of bad data. 
: On a second such error, we give up to avoid risking leaving a volume with 
no good home blocks. 
ERR_COUNT = 2; ! we quit after the 2nd error 
COUNT = =1; . 
VBN = 2; 
DO 
BEGIN 
STATUS = DO_IO (CHAN = ,CHANNEL, 
FUNC = IO$_READVBLK, 
10SB = 10 STATUS, 
P41 = BUFFER, 
Ps = 512, 
P = .VBN 


): 
STATUS THEN STATUS = .I0_STATUSLO); 
STATU 


EN IF NOT CHECK_HOMEBLK2 (BUFFER, .BUFFERCHM2$L_HOMELBN] 
UPLIT (HM2$S_VOLNAME, BUFFERCHM2$T_VOLNAME])) 
THEN STATUS = MOUNS_HOMBLKCHK; 


IF NOT .STATUS 
THEN 
BEG! 
ERR_COUNT = .ERR_COUNT - 1; 
IF TERR COUNT L 
THEN ERR_EXIT (MOUNS_BADHOMBLK, 0, .STATUS); 


AE cana (MOUN$_BADHOMBLK, 0, .STATUS); 


IF 
IF 
TH 


ELSE count from 1st good home block 


, ! get Loop 
IF .COUNT EQL -1 THEN COUNT = .BUFFERCHM2$W_CLUSTER] * 3; 
! Update the home block read with structure name, RVN, and/or volume set size 


] 
! as requested. Recompute the checksums. If the block was bad, bash a checksum. 
} Finally rewrite it. 


IF_.MODECO) 

THEN BEGIN 
CHSMOVE (HM2$S_STRUCNAME, HOME BLOCKCHM2$T_STRUCNAME], BUFFERCHM2$T_STRUCNAME J); 
BUFFER HM2$W_RON] = .HOME_BLOCRCHM2SW_RVNJ; 

IF .MODEC1) 
BUFFERCHM2$W_SETCOUNT] = .HOME_BLOCKCHM2$W_RVNJ; 

CHECKSUM2 (BUFFER, SBYTEOFFSET (HM2$W_CHECKSUM1)); 

CHECKSUM2 (BUFFER, SBYTEOFFSET (HMoSW-CHECKSUM2)); 

IF NOT .STATUS THEN BUFFERCHM2$W_CHECRSUM2] = NOT .BUFFERCHM2$W_CHECKSUM2); 


STATUS2 = DO_IO (CHAN = .CHANNEL, 


B NDV 
Vv -000 


Ft at et et ek et et et et et tt et 
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VAX=11 Bliss-32_ V4 
DISKSVMSMASTER 


! ignore write error if it was bad 


$PLITS,NOWRT ,NOEXE,2 


“LONG 12 
-ADDRESS BUFFER+472 


CHECK_HOMEBLK2, CHECKSUM2 
SCODES,NOWRT,2 

Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
BUFFER, R11 


#2. ERR COUNT 
#1. COUNT 
#2. VBN 


=( 
10_STATUS 
W493 
SHVOEL 


#12, COMMON_I0 
RO, STATUS 


P 0973 FUNC = I10$_WRITEVBLK, 
P 0974 I0SB = 10 STATUS, 
P 0975 Pi = BUFFER, 
P 0976 P2 = 512, 
P 0977 P = .VBN 
9979 IF .STATUS2 THEN tratuse = .10_STATUSCO]; 
0981 IF .STATUS 
098 THE 
098 IF NOT .STATUS2 
0984 THEN 
0985 4 BEGIN 
0986 4 ERR MESSAGE (MOUNS WRTHOMBLK, 0, .STATUS2); 
0987 4 ERR-COUNT = .ERR_COUNT = 1; 
0988 ; 
0989 
0990 veN = .VBN + 1; 
099 gu UNTIL en GTRU .COUNT; ! Loop for all home blocks 
0994 1 END; ! end of routine UPDATE_HOMEBLK 
.PSECT 
00012 
0000000C 00014 P.AAD: 
000000006 00018 
.EXTRN 
-PSECT 
OFFC 00000 UPDATE_HOMEBLK : 
5B 0000G CF 9E 00002 MOV 
5E 08 C2 00007 SUBL 
SA DO OOO0A MOVL 
59 01 cE 00000 MNEGL 
57 02 p 9019 MOVL 
7E 7C 00013 1$: CLRO 
ze D4 99015 CLRL 
5 bo 001 PUSHL 
7E 0200 &F 3¢ 00019 MOVZWL 
5B DD O015 PUSHL 
7E 7C 000 CLROQ 
20 AE 9F 000 PUSHAB 
31 Dd 000 PUSHL 
04 AC DD 000 PUSHL 
1A DD 0002A PUSHL 
000000006 00 ¢ F ¢ CALLS 
56 D MOVL 
20 6 : BLBC 
é gf ¢ 09 MOV2WL 
1A 6 ES 0003C¢ LBC 


STATUS, 3$ 
1c status STATUS 
STATUS, 3$ 


0-742 Pag 
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0933 
0934 


<@ 


on 
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 v04=000 12-808- 1382 Pah Sept DISK AK SVMGH TER: chounT. SRCIBINDVL.B32:1> (4) 
| 0000 
' CF OF 0003F PUSHAB P.AAD : 093 ; 
68 DD ie PUSHL BUFFER ; O338 ; 
8 DD BRe PUSHL R11 ; | $ 
| 00006 cf 03 i 0047 CALLS #3, CHECK_HOMEBLK2 : ; 
56 00728184 BF D OO4F MOVL #7504308, STATUS : 0937 ; 
27 56 € 096 38: BLBS = § , 5$ + 0939 : 
11 SA OF 00 $: SOBGTR ERR COUNT, 4$ + 0942 F 
36 dd 0005¢ PUSHL STATUS + 0944 ; 
E D4 O05 CLRL. =(SP) : ; 
00729028 8F DD 0006 PUSHL #7508008 : : 
000000006 00 3 FB 0066 CALLS #3, LIBS$STOP : ; 
6 DD 0006D 4s: PUSHL STATUS + 0946 F 
E D4 O006F CLRL. = =( SP) : : 
00729028 8F DD 00071 PUSHL #7508008 : : 
000000006 00 03 Fe 09077 CALLS #3, LIBS$SIGNAL Diese : 
FFFFFFFF © 8F 59 D1 00080 5$ CMPL COUNT, #=1 + 0950 ; 
07 12 00087 BNE : ; 
59 OE AB 3C 00089 MOVZWL #3 oun COUNT : ; 
59 03 C4 0008D MULL2 ; : 
OE 08 Ac 59 00090 6$ BLBC MODE, + 0957 : 
O1cc = 00006 CF OC 28 00094 MOVC3 #12 Wome aaa aih? BUF FER+460 + 0960 3 
26 «AB 00006 CF 680 0069C MOVW HOME BLOCRs 8, BUFFER+ + 0961 3 
06 08 Ac 01 €1 O00A¢ 7$: BBC #1, MODE, + 0964 ; 
28 AB 00006 CF B80 000A MOVW HOME "BLocKs38, BUFFER+40 + 0966 ; 
3A DD OOOAD 8$ PUSHL #58 - : 0968 : 
5B DD OOOAF PUSHL R11 : ; 
00006 CF 02 FB 000B1 CALLS ue CHE CKSUM2 ; : 
7€ O1FE 8F 3C 000B6 MOVZWL «#510, -(SP) : 0969 3 
5B 0D 000BB PUSHL : ; 
00006 CF 02 FB 90080 CALLS #2. CHECK SUM2 ; : 
07 56 EB 90¢2 BLBS = STAT + 0970 ; 
O1FE CB O1FE CB 62 000C¢ MCOMW srreRssio, BUFFER+510 : : 
7E 7C OOOCC 9$: CLRQ  =(SP) : 0978 : 
7E 04 OO0CE LRL = = (SP) : : 
57 DD 00000 PUSHL VBN : ; 
7E 0200 8F 3C 900D¢ MOVZWL #512, -(SP) : : 
58 DD 9900 PUSHL R11 : : 
7E 7C 00009 CLRQ.  =(SP) : ; 
20 Ar 9F 00008 PUSHAB 10. STATUS : ; 
30 DD OO0DE PUSHL #48 : : 
04 AC DD 000E PUSHL CHANNEL : ; 
1A DD OE PUSHL 426 : ; 
000000006 00 C FB E CALLS #12, COMMON_I : : 
38 0 pO OO00EC MOVL RO, STATUS : ; 
0 8 §? OOEF panty $2, 10$ ; 0979 3 
| 58 GE 3¢ 000F2 MOVZWL 10 statis STATUS2 ; ; 
18 > E9 OOOFS 10$:  BLBC  STATU Ms : 0981 ; 
| 1 E8 OOOF8 BLBS STATUS, 11$ > 0983 : 
3 DD OOF PUSHL STATUS : 0986 : 
E D4 OO0OFD CLRL. = : : 
00729030 8F DD OOOFF PUSHL #7508016 ; : 
000000006 00 3 FB 105 CALLS #3, LIBSSIGNAL : : 
A 07 0010C DECL  ERR_COUNT : 0987 : 
7 D6 OO10E 118 INCL : 0990 : 
59 7 D1 0011 CMPL =-* VBN, COUNT : 0992 : 
| 


a 
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281 bytes, 


; Routine Size: 


x 
BEB 


ne fe rn ES Se . 
1 | 
| BINDV 1o-se 1984 01:10:14 VAX=11 Bliss-32 V4.0-742 Page 17 
Bivesicy 1e-8ep-19 4 Pet per DISKSVMSMASTER: (MOUNT. SRCIBINDVL.B32;1 19 sf 
; 468 0995 1 ROUTINE OPEN_FILE (FID, CHANNEL, ATTRIB) : NOVALUE = : 
; 469 238 1 ° 
; 470 997 1 I++ : 
i; $71 998 1! ; 
; of 2444 | FUNCTIONAL DESCRIPTION: : 
> 474 1001 1! This routine opens the file given by the file ID on the indicated | : 
> 475 1906 , channel. ° 
: 476 1003 1! : 
s 477 1006 1! : 
; 478 1005 1 ! CALLING SEQUENCE: ; 
: 479 1906 1 | OPEN_FILE (ARG1, ARG2, ARG3) ‘ 
> 480 1007 1 : 
> 481 1008 1 | INPUT PARAMETERS: : 
; 48 1009 1! ARG1: address of file ID ‘ 
: 48 1010 1! ARG2: channel number to use ; 
> 484 1017 1! : 
: 485 10i8 1 ! PMPLICIT INPUTS: ; 
> 486 1013 1 | NONE : 
; 487 1014 1 | 3 
: 488 1015 1 ! OUTPUT PARAMETERS: : 
; rt 1918 ! ARG3: address of buffer to receive record attributes, if not 0 : 
; 4691 1018 1°! IMPLICIT OUTPUTS: : 
: 49 1019 1! NONE : 
: 49 1020 1 | : 
> 4% 1021 1 ! ROUTINE VALUE: : 
> 495 1oge 1 | NONE : 
: 496 1023 1 | ; 
; 497 10246 1 ! SIDE EFFECTS: ; 
; 498 1025 1! file opened ; 
; 499 1026 1! : 
P4 500 10 7 1 leo é 
; $01 1028 1 : 
: 208 544 2 BEGIN : 
; 3 1030 2 : 
; $04 1031 $ : 
: 505 1938 MAP : 
; 506 103 FID : REF BBLOCK, ! file ID “? : 
: ryt4 Ie ATTRIB : REF BBLOCK; ! attribute buffer arg : 
; 509 1036 BUILTIN : 
; a9 + 7? ROT; : 
: $18 1939 LOCAL 3 
;. 3 1040 STATUS !_ general status return : 
: 314 1641 19 STATUS : VECTOR Ca oto 17°7°170 status block ; 
3; 31S 1008 ATTR_CTL : otis *8 ! attribute control List 3 
i 316 104 FI : fea. ACCDATA], | FIB ; 
; oy 1044 FIB_DESC 2 ' FIB descriptor : 
P 18 1045 | ° 
s 519 H 3 
: 320 1348 Fill in the control blocks and open the file. : 
3 : 
3 1 ; 
3 H : 1050 CHSMOVE (FIDSC_LENGTH, .FID, FIBCFIBSW_FID)); : 
; 35 1051 2 FIBCFIBSL Acti) = FIBSM_WRITE OR FIBSA_NOWRITE; | ; 
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ANNE He ESS 
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CLRQ 


AE 00040020 
7E 


04 


10 
S, STATUS 
3$ 


COMMON 


00 
07 
50 
09 
00 
17 
A2 
A2 


000000006 


2$ 


§ 
10_STATU 
STATUS, 
STATUS 
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134 bytes, Routine Base: S$CODE$ + 0359 
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vet 127808 - 138s ae SP DISKSVMSMASTER: LMOUNT. SRCIBINDVL.B32:1> (BS 
3 $8 199% } ROUTINE CLOSE_FILE (CHANNEL, ATTRIB) : NOVALUE = 

i 3H 1095} i 

: 78 1098 FUNCTIONAL DESCRIPTION: 

: i rH : ! This routine closes the file open on the given channel. 

: §77 1103 1: 

: 378 1104 1 ! CALLING SEQUENCE: 

: 209 1105 CLOSE_FILE (ARG1, ARG2) 

: 581 1109 1 | INPUT PARAMETERS: 

; abe 1108 1! ARG1: channel number to use x 

: 28? 1193 } ARG2: address of buffer to receive record attributes, if not 0 
: 585 1111 1°! IMPLICIT INPUTS: 

Bee toa 

: 588 1114 1 | OUTPUT PARAMETERS: 

Beh itte 

: 591 1117 1! IMPLICIT OUTPUTS: 

aoa = 

: 59% 1120 1! ROUTINE VALUE: 

me dh 

: 597 1138 1 | SIDE EFFECTS: 

s 598 1124 1! file closed 

: 599 1125 1 

: 600 1126 1 je- 

: 88) 1138 2 BEGIN 

BONG baw 

: 605 1131 ATTRIB : REF BBLOCK; ! attribute buffer arg 
BUG panne. 

HONG Bio 

; 611 1139 STATUS !_ general status return 

i 618 1138 10_STATUS : VECTOR C4, WORD], ! 1/0 status block 
; (61 1139 ATTR_CTL : BBLOCKVECTOR C2,°83; ! attribute control List 
Beet 

: 618 1146 : Fill in the control blocks and close the file. 

: 618 144 3 

: 619 1145 ATTR_CTLE . ATRSu SIZE} = 0; 

: 620 1146 ATTR-CTLCO, ATRSW-TYPE) = 0: 

: é 1 114 IF ATTRIB NEQ 0 

: 6 : 1149 BEGIN 

: 626 1150 A TR_CTLEO, ATRSY SIZE} = ATRSS_RECATIR; 

> 625 1151 ATTRCTLLO, ATRSW TYPE) = ATRSCRECATIR: 
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; 644 1169 1 ROUTINE READ_VIRTUAL (CHANNEL, VBN) : NOVA = 
> 645 1196 1 = sia 

3 ong 1171 1 S44 

: 646 1126 1! 

; 648 11735 1 ! FUNCTIONAL DESCRIPTION: 

; 649 1174 1! 

; $30 ye: : This routine reads the indicated virtual block in the given channel. 
5 $26 199 1 i 

; 65 1128 1 | CALLING SEQUENCE: 

; $28 at : READ_VIRTUAL (ARG1, ARG2) 

; $23 1181 1! INPUT PARAMETERS: 

s 657 11 ¢ 1 / ARG1: chanrel number to use 

; 658 11 1! ARG2: VBN to read 

; 659 1138 1/ 

; 660 1185 1: IMPLICIT INPUTS: 

; 661 1186 1! NONE 

3 o6¢ 1187 1! 

; 66 1188 1 i OUTPUT PARAMETERS: 

3; 664 1189 1! NONE 

; 665 1190 1! 

; 666 1191 1°! IMPLICIT OUTPUTS: — 

: 667 1136 1 BUFFER: contains block read 

: 668 1193 1! 

; 669 1194 1 i ROUTINE VALUE: 

; 670 1195 1: NONE 

3; 671 119% 1! 

s 67 1197 1: SIDE gti t 

s 67 1198 1! ONE 

3; 674 1199 1! 

: 675 1500 1 i- 

: 676 1201 1 

3; 677 1608 BEGIN 

; 678 1$9 

: 679 1204 

: 680 1205 2 LOCAL 

; 681 1606 STATUS ' status return 
; 68 1207 10_ STATUS : VECTOR C4, WORD]; ! 1/0 status block 
: 684 P 1209 2 STATUS = DO_IO (CHAN = .CHAN 

3; 685 P 1210 § FUNC = I0$ READVBLK. 

3; 686 P 1211 a = 10 STATUS, 

: 687 P 1 \¢ = RUBFER. 

; 688 P 121 a = 512, 

; 689 P 1214 = .VBN 

; 690 1215 

: 691 1216 2 If .STATUS THEN Status .10_STATUS(O); 

s $9 ' 4 § IF NOT .STATUS THEN ERR “ex IT (.STATUS); 

3; 694 1219 1 END; ! end of routine READ_VIRTUAL 


0000 00000 READ_VIRTUAL: 


M1 
Vou=0b0 1esep-198e F2iL8i1G — DISkSumsnaSfeRsCHOUNT-SRcIBINDVL.83254%" (95 


WOR pave nothing 3; 1169 

SE 8 c2 SUBL2 #8, SP : 
—E 7C¢ CLRO. 0s = §p) + 1215 

E 04 CLRL = = (SP) : 

AC DD 0 09 PUSHL v8 ; 

7E 02 8F 3C 000 ( MOVZWL #512, <(SP) : 

006 cr f or USHAB FER : 

—E 7C 15 CLRQ =(SP : 

20 AE 9F 0001 PUSHAB 10 STATUS : 

31 DD OOO1A PUSHL #49 : 

04 AC Dp 9001¢ PUSHL CHANNEL ; 

000000006 00 oc FB 8 1 CALLS #12, COMMON_IO ; 
5 0028 BLBC STATUS + 1216 

ge ¢ 0028 MOVZWL 10 STATUS, STATUS ; 
09 E8 0002E BLBS STATUS, 2$ + 1217 

50 DD 00031 1$: PUSHL STATUS : 

000000006 00 01 FB 00033 CALLS #1, LIBSSTOP : 
04 0003A 2s: RET + 1219 


; Routine Size: 59 bytes, Routine Base: S$CODES + 0436 
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ROUTINE WRITE_VIRTUAL (CHANNEL, VBN) : NOVALUE = 


14 
' 


i FUNCTIONAL DESCRIPTION: 

This routine writes the indicated virtual block in the given channel. 
CALLING SEQUENCE: 

WRITE_VIRTUAL (ARG1, ARG2) 
INPUT PARAMETERS: 

ARG1: channel number to use 

ARG2: VBN to write 


IMPLICIT INPUTS: 
BUFFER: contains block to be written 


OUTPUT PARAMETERS: 
NONE 
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ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 
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STATUS ' status return 
734 10_STATUS : VECTOR C4, WORD]; ! 1/0 status block 
736 P STATUS = DO_IO (CHAN = .CHANNEL 
737 P FUNC = 10$ WRITEVBLK, 
738 P 10SB = 10 STATUS, 
739 P Pi = BUFFER, 
740 P Pe = 512, 
241 P P = \VBN 
74 IF .STATUS THEN STATUS = .10_STATUSCO); 
ra IF NOT .STATUS THEN ERR_EXIT~(.STATUS); 
746 £ 


ND; ! end of routine WRITE_VIRTUAL 


IMPLICIT OUTPUTS: i 
NONE 
| 
0000 00000 WRITE_VIRTUAL: | 
| 
} 
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.WOR Save nothin : 1220) 

SE 98 £2 90002 sere eBY spe 
—E 7C 000 CLRO. 0s = (§P) + 1266 

7E D4 00007 CLRL = (SP) : 

08 AC DD 00009 PUSHL  VBN ; 

7E 0200 BF 3C 0000C MOVZWL #512, =(SP) : 

00006 ct F 00011 PUSHAB BUFFER : 

—e 7C 0013 CLRQ (SP) : 
20 AF 9F 00017 BUSHAB 10 STATUS : 

30 DD OOO1A PUSHL #48 : 

04 AC DD 0001C PUSHL CHANNEL ; 

1A DD O01 PUSHL ; 

000000006 00 O¢ FB 1 CALLS #12, COMMON_IO : 
06 £9 00028 BLBC STATUS, 1$ + 1267 

50 6 C 00028 MOVZWL IO_STATUS, STATUS : 
09 50 ES O00¢E BLBS STATUS, 2$ + 1268 

50 DD 00031 1$: PUSHL STATUS ; 

000000006 00 01 FB 00033 CALLS #1, LIBSSTOP : 
04 0003A 2$: RET > 1270 


; Routine Size: 59 bytes, Routine Base: S$CODE$ + 0471 


NDVL 16 sg 
“Se 

-000 14-Se 
; 748 1271 1! 
> 749 1 es 1 ! The following routine is obsolete. It is commented out for historical 
; Ta 1275 1 ! reasons only. 
s ol 1274 1! 
; Pee 1st? 73 
; bP 1276 1 ! ROUTINE UNLOCK_INDEXF = 
: 754 1277 1! 
s os 1278 1 !+4 
; 726 1279 1! 
; Pee 1$80 : FUNCTIONAL DESCRIPTION: 
; 759 1see 1! This routine zeroes the lock count in the index file FCB's of the 
; 760 1285 1! volume being mounted /BIND and of RVN 1. In addition, it resets 
> 761 1284 1! the LOG_IO and PHY_10 privilege bits to the process’ unamplified 
3: 762 1285 1! bits, to allow the file system's protection check to work. Once 
s 765 1286 1! we have a separate privilege bit to grant SYSTEM file access, this 
3; 764 1287 1! kluge can be removed. It must be called in kernel mode. 
; 765 1288 1! 
: 766 1289 1! 
3: 767 1290 1 ! CALLING SEQUENCE: 
: 768 1291 1! UNLOCK_INDEXF () 
: 769 1$%6 1! 
; 770 1293 1 ! INPUT PARAMETERS: 
; i 1294 1! NONE 
; fie 1295 1! 
; Tre 1296 1 ! IMPLICIT INPUTS: ; 
3 ae 1932 : CHANNEL: channel number assigned to current volume 
: 77% 1638 1 ! OUTPUT PARAMETERS: 
s 7@77 1300 1! NONE 
; #778 1301 1! 
; 779 1308 1 ! IMPLICIT OUTPUTS: 
; 780 1303 1! NONE 
: «781 1304 1! 
; 782 1305 1 ! ROUTINE VALUE: 
s fas 1306 1! 1 if all OK é 
; «784 1307 1! MOUNS_RVNINOTMT if RVN 1 is not on Line 
s 765 1308 1! 
: 786 1309 1 ! SIDE EFFECTS: ele 
: 787 1310 1! lock count in index file FCB's zeroed 
3; 788 1311 1! 
3; 789 13i¢ 1 !-- 
; 790 1315 1! 
: 791 1313 1! BEGIN 
; 779 a. Ee 
:; 79 1316 1 ! LOCAL , 
; 794 1317 1! PRIVILEGE_MASK : REF BBLOCK, ! pointer to current privilege mask 
: 795 1318 1! UCB : REF BBLOCK, ! address of UC 
: 796 1319 1! UCcB1 : REF BBLOCK, ! address of UCB of RVN 1 
3; 797 1320 1! FCB : REF BBLOCK, ! address of index file FCB 
3 8 3 1 ' : RVT : REF BBLOCK; ! address of relative volume table 
: 500 1398 1 ! EXTERNAL 
; 801 1324 1! CLEANUP_FLAGS : BITVECTOR, } Sieanup action flags 
; 80 135? . 3 CTL$GL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE), 
; 60 13 $ 1! ! po nter to process header 
3; 804 1Se7 7! CTL$GQ_PROCPRIV : BBLOCK ADDRESSING_MODE (ABSOLUTE); 
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; 843 1365 1! 

: 844 1 $8 1! The following routine is obsolete. It is commented out for historical 

; «845 1367 1 ! reasons only. 
; «84 1368 1! 
> 84 1 9? 1 ! ROUTINE LOCK_INDEXF = 

>; 848 1570 1! 

; 849 1371 1 See 

; Se) ! a : FUNCTIONAL DESCRIPTION: 

; H j 
$ HE ine 8 This re restores the lock at to the index file FCB's of 
: 854 1 6 = the volume aging mounted and of RVN 1. It also set the LOG_ 10 and 

s 899 137 1! PHY_I0 bits in the process aetetlons senk. It must be calléd in 

; 856 1378 1! kernel mode. 

s Gor 1379 1! 

; 858 1380 1! 

; 859 1381 1 ! CALLING SEQUENCE: 

; 860 1306 1! LOCK_INDEXF () 

; 861 13835 1! 

; 862 1384 1 ! INPUT PARAMETERS: 

; 863 1385 1! NONE 

> 864 1386 1! 

3; 865 + ta peruse INPUTS: 

; 866 1388 1! HANNEL: channel assigned to volume 

; 867 1389 1! 

; 868 1390 1 ! OUTPUT PARAMETERS: 

; 869 1391 1! NONE 

; 870 1336 1! 

3 87 1393 1 ! IMPLICIT OUTPUTS: 

; 872 1338 1! NONE 

: 873 1395 1 i | 
3; 874 1396 1 ! ROUTINE VALUE: | 
s &t 1397 1! 1 

; 876 1398 1! 

; 877 1399 1 ! SIDE EFFECTS: 

: 878 1400 1! lock counts in FCB's restored 

: 879 1401 1! 

: 880 1408 1 f-- 

; 881 1403 1! 

; 882 1404 1 ! BEGIN 
; 48835 1405 1! 
; 884 1406 1 ! LOCAL le 
; 885 1407 1! PRIVILEGE_MASK : REF BBLOCK, ! pointer to current privilege mask 
; 886 1408 1! UCB : REF BBLOCK, ! address of UCB 

3: 887 1409 1! uCcB1 : REF BBLOCK, ! address of UCB of RVN 1 

; 888 1410 1! FCB : REF BBLOCK, ! address of index file FCB 

3; 889 1411 1! RVT : REF BBLOCK; ! address of relative volume table 

: 890 rd 1! 

; «4891 1413 1! EXTER 

; 89 1414 1: “CLEANUP FLAGS : BITVECTOR, action flags 
: $3 1415 1! L_PHD : REF BBLOCK noone SSN ODE (ABSOLU BD: 

: 894 1416 1! ! pointer to process header 

; 895 1417 1! 

: 596 213 1 ' EXTERNAL ROUTINE 

; «489 1419 1! GET_CHANNELUCB; ! get UCB address of channel 
: 898 50 1! 

; 899 1421 1! 
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Find the FCB's in the 1/0 database and add in the old counts (thus allowing 


for changes in the meantime). 


vee . CEACOCK t ueoruC teat VCBSL_FCBFL); 

= . 

FCBCFCBSW ENTS ar eetE (BSW os AGes + TLOCK_COUNT; 

RVT = -BBLOCK a gucstucesy . vCB], VCBSL_RVT); 

UCB1 = .RVTCRVT 

IF .UCBi NEG 0 ite -UCB1 NEQ .UCB 

THEN 
BEGIN 
FCB = .BBLOC k fu .UCBICUCBS$L_VCB) yCBSL FCBFLI; 
ECBCF CES W_LCNT .FCB PeaSu Cc CNT Cock _COUNTI; 


Turn on the LOG_IO and PHY_IO privilege bits again. 


GE_MASK = CTLSGL rig} ete PRIVMSK]; 
13 


LE 

LEGE_MASKCPRVS$V_LOG 
LEGE_MASK PRV$V_ Baye 10 
p 


FLAGSCCLF_RELOCK) = 0; 


PRIVI 
PRIVI 
PRIVI 
CLEANU 
RETURN 7; 


END; ! end of routine LOCK_INDEXF 
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] 
| 
| 

: g 8 1% 9 ! ROUTINE BIND_HANDLER (SIGNAL, MECHANISM) = 

s 95) 14 § 1 !e4 

; 9 ¢ 14 2 

; 1? : ! FUNCTIONAL DESCRIPTION: 

3 9s 1428 : 3 This routine is the condition handler for the /BIND processing. 

; 9 “457 3 TF It closes files and deassigns channels as necessary, and resignals 

; 937 1458 1! the error to the main condition handler. 

; 938 1459 1! 

; 939 1460 1! 

; 940 1461 1 ! CALLING SEQUENCE: 

> 941 1236 1! BIND_HANDLER (ARG1, ARG2) 

3 ars 1465 1! 

; 94 1464 1 ! INPUT PARAMETERS: 

> 944 1465 1! ARG]: address of signal array 

> 945 1466 1! ARG2: address of mechanism array 

: 946 1467 1! 

: 947 1468 1 ! IMPLICIT INPUTS: 

: 948 1469 1! NONE 

: 949 1470 1! 

; 950 1471 1 ! OUTPUT PARAMETERS: 

3; 951 Hg 64 1! NONE 

3 926 1473 1! 

: 95 1474 1 =! IMPLICIT OUTPUTS: 

: 954 1475 1! NONE 

; 955 1476 1! 

: 956 1477 1 | ROUTINE VALUE: | 

: 957 1478 1! NONE 

; 958 1479 1! 

; 959 1480 1 ! SIDE EFFECTS: 

; 960 1481 1! various cleanups 

: 961 1482 1 | 

: 268 1483 1 !<- 

; 96 1484 1 

> 964 1485 BEGIN 

; 965 1486 

: 966 1487 MAP 

; 967 1488 SIGNAL : REF BBLOCK, ! signal array 

: oo8 1489 MECHANISM : REF BBLOCK; ! mechanism array 

; 96 1490 | 

; 970 1491 EXTERNAL 

; 971 1636 CLEANUP_FLAGS =: BITVECTOR; ! cleanup status flags 

: 1433 | 

: 974 1495 ! Do cleanup as indicated by the status flags. Close files and deassign 

; 975 1498 ' channels. 

; 97 149 ! 

3; 97 1438 

; 978 14 IF .BBLOCK CSIGNALCCHFSL_SIG_NAME], STSSV_SEVERITY] EQL STSSK_SEVERE 

; 979 1500 THEN 

; 980 1501 BEGIN 

: 981 1286 

; 98 15 IF .CHANNEL2 NEQ 0 

; 98 15 THEN 

3; «986 1505 4 BEGIN 

; 6985 1506 4 DO_IO (CHAN = .CHANNEL2, FUNC = IO$_DEACCESS); 
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12-808 -1 3b Ob: 10:18 DISKSVMSMASTER:CMOUNT. SRCIBINDVL.B32:1> (11) 

SDASSGN (CHAN = .CHANNEL2); 
NNEL2 = 0; 


CHA 
END; 
IF .CHANNEL3 NEQ 0 
THEN 
DO_10 (CHAN = .CHANNEL3, FUNC = IO$_DEACCESS); 
SDASSGN (CHAN = .CHANNEL3); 
CHANNEL3 = 0; 


' 
i 
: THEN KERNEL_CALL (LOCR_INDEXF); 


END; | 
RETURN SS$_RESIGNAL; 
END; ! end of routine BIND_HANDLER | 

| 
| 


eEXTRN CLEANUP_FLAGS 
001C 00000 BIND HANDLER: 
WORD 


Save R2,R3,R4 : 1450 
54 000000006 00 9€ 00002 MOVAB SYSS$DASSGN, R4 : 
53 000000006 00 9E 00009 MOVAB COMMON 10, R3 : 
52 0000° CF 43 O09 MOVAB CHANNECL2, R2 3 
50 04 AC DO 0001 MOVL SIGNAL + 1499 
AO 03 00 FD 0019 CMPZ72V #0, #3. 4(RO), #4 : 
41 12 9001" BNEQ : 
50 62 3¢ 0021 MOVZWL CHANNEL2, RO + 1503 
1A 13 00024 a ~=s'1$ : 
7E 7C 000 6 CLRO 2s = (SP) + 1506 
7E 7C 000 CLRQ = (SP) : 
7E 7C OOO2A CLRQ = (SP) F 
7E 7C 0002C CLRQ = (SP ; 
7E 34 7D 0002E MOVQ #52, -(SP) : 
50 oD 000 PUSHL R F 
1A DD 99 PUSHL # $ ; 
63 0¢ FB CALLS #12, COMMON_IO : 
7E 6 3C¢ 000 MOVZWL CHANNEL2, -TSP) : 1507 
64 1 FB 000 CALLS #1, SYSSDASSGN ; 
62 4 000 ; CLRW CHANNEL : 1508 
50 02 =A ¢ 4 1$: MOVZWL CHANNELS, RO : 1511 
1¢ 4 BEQL ; 
7E 70 046 CLRO = = (SP) > 1514 
7E 7C 0004 CLRQ —_ = (SP) F 
7E 7C 0004A CLRQ = (SP) : 
7E 7C 0004C CLRO 543?) ; 
7E 34 70 : OVO #52, -(SP) ; 
0 oD 2 PUSHL R ; 
1A 00 3 PUSHL #26 F 


2 
BINDV ibs Sep -13% 9}: 2:10:14 VAX-11 Bliss-32 V4.0-742 
v04-0 14-Sep 7:45:16 DISKSVMSMASTER: ChOUNT. SRCIBINDVL.B32; 
3 OC FB 5 ALLS #12, COMMON_IO 
E 02 As 3¢ 0088 MOVZWL CHANNEL3, -TSP) 
64 01 FB O05¢ ALLS #1, SYS$DASSGN 
08 A2 B4 0005F CLRW © CHANNEL 
50 091 8F 3C bes 2$: MOVZWL #2328, RO 
4 0006 ET 
; Routine Size: 104 bytes, Routine Base: S$CODE$ + O4AC 
: 1008 1529 } 
3; 1009 1330 
: 1010 1 d ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS 28 NOVEC.NOWRT, RD .NOEXE.NOSHR. LCL. REL, Saeko Eb att 
; SCODES 1300 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
ape ee ee Jos Re Syeholg cowreces Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 64 0 1000 00:01.9 
3 COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:BINDVL/OBJ=OBJ$:BINDVL MSRC$:BINDVL/UPDATE=(ENH$:BINDVL) 


Size: “e 0S 8he« + 40 data bytes 
t 1:11.7 


Lexemes/CPU-Min: 28959 
Memor 


7¥ Used: 203 pages 
Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


a: 


IT 
FI 


AH-BT13A-SE 
VAX/VMS V4.0 


L EQUIPMENT 
ENTIAL .AND 


24 : ’ CORPORATION 


DI 
CO PROPRIETARY 


ITA 
FID 


